-- card: 132985 from stack: in
-- bmap block id: 147143
-- flags: 4000
-- background id: 2609
-- name: Module Pricing
----- HyperTalk script -----
on openCard
  global bundlePricing
  if bundlePricing is empty then put "False" into bundlePricing
end openCard

on closeCard
  hide card field "Bundle Pricing Note"
end closeCard

on mouseUp
  if name of target contains "button" then
    lock screen
    set cursor to watch
    put empty into card field "School Setup"
    put empty into card field "Student Details"
    put empty into card field "Teacher Details"
    put empty into card field "Course Details"
    put empty into card field "Report Manager"
    put empty into card field "Price"
    if not hilite of button "Multi-user" then
      if hilite of card button "Report Cards" then -- Report Cards
        show card field "Report Cards Note"
        add card field "Report Cards" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Student Details"
        put numtochar of 18 into card field "Teacher Details"
        put numtochar of 18 into card field "Course Details"
        put numtochar of 18 into card field "Report Manager"
      else
        hide card field "Report Cards Note"
        if hilite of card button "Attendance" then -- Attendance
          add card field "Attendance" to card field "Price"
          put numtochar of 18 into card field "School Setup"
          put numtochar of 18 into card field "Student Details"
          put numtochar of 18 into card field "Report Manager"
        end if
        if hilite of card button "Marks" then -- Marks
          add card field "Marks" to card field "Price"
        end if
      end if
      if hilite of card button "Scheduling" then -- Scheduling
        add card field "Scheduling" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Student Details"
        put numtochar of 18 into card field "Teacher Details"
        put numtochar of 18 into card field "Course Details"
      end if
      if hilite of card button "Library" then -- Library
        add card field "Library" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Report Manager"
      end if
      if hilite of card button "Advance Booking" then -- Advance Booking
        add card field "Advance Booking" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Report Manager"
      end if
    else
      if hilite of card button "Report Cards" then -- Report Cards
        show card field "Report Cards Note"
        add card field "MReport Cards" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Student Details"
        put numtochar of 18 into card field "Teacher Details"
        put numtochar of 18 into card field "Course Details"
        put numtochar of 18 into card field "Report Manager"
      else
        hide card field "Report Cards Note"
        if hilite of card button "Attendance" then -- Attendance
          add card field "MAttendance" to card field "Price"
          put numtochar of 18 into card field "School Setup"
          put numtochar of 18 into card field "Student Details"
          put numtochar of 18 into card field "Report Manager"
        end if
        if hilite of card button "Marks" then -- Marks
          add card field "MMarks" to card field "Price"
        end if
      end if
      if hilite of card button "Scheduling" then -- Scheduling
        add card field "MScheduling" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Student Details"
        put numtochar of 18 into card field "Teacher Details"
        put numtochar of 18 into card field "Course Details"
      end if
      if hilite of card button "Library" then -- Library
        add card field "MLibrary" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Report Manager"
      end if
      if hilite of card button "Advance Booking" then -- Advance Booking
        add card field "MAdvance Booking" to card field "Price"
        put numtochar of 18 into card field "School Setup"
        put numtochar of 18 into card field "Report Manager"
      end if
    end if
    if card field "Price" is empty then -- no modules
      if hilite of button "ASCII Transfer" then
        set hilite of button "ASCII Transfer" to false
        answer "ASCII Transfer is not a standalone module" with "OK"
      end if
      if hilite of button "Scanning" then
        set hilite of button "Scanning" to false
        answer "Scanning is not a standalone module" with "OK"
      end if
      if hilite of button "Query" then
        set hilite of button "Query" to false
        answer "Query is not a standalone module" with "OK"
      end if
      if hilite of button "Health Records" then
        set hilite of button "Health Records" to false
        answer "Health Records is not a standalone module" with "OK"
      end if
      if hilite of button "Guidance" then
        set hilite of button "Guidance" to false
        answer "Guidance is not a standalone module" with "OK"
      end if
    else
      if hilite of button "ASCII Transfer" then
        add card field "ASCII Transfer" to card field "Price"
      end if
      if hilite of button "Scanning" then
        add card field "Scanning" to card field "Price"
      end if
      if hilite of button "Query" AND not hilite of button "Report Cards" then
        add card field "Query" to card field "Price"
      end if
      if hilite of button "Health Records" then
        add card field "Health Records" to card field "Price"
      end if
      if hilite of button "Guidance" then
        add card field "Guidance" to card field "Price"
      end if
    end if
  end if
end mouseUp

on resetCard
  repeat with buttonNum = 1 to the number of card buttons
    set hilite of button buttonNum to false
  end repeat
  repeat with fieldNum = 1 to 6
    put empty into card field fieldNum
  end repeat
  hide card field "Report Cards Note"
end resetCard

on showFields
  repeat with index = 9 to the number of card fields - 1
    show card field index
    set lockText of card field index to false
  end repeat
end showFields

on hideFields
  repeat with index = 9 to the number of card fields - 1
    hide card field index
    set lockText of card field index to true
  end repeat
end hideFields



-- part 1 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=44 top=90 right=108 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=44 top=111 right=129 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report Cards
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=44 top=132 right=150 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Marks
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=44 top=153 right=171 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scheduling
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=181 top=90 right=108 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=181 top=111 right=129 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Advance Booking
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=181 top=132 right=150 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ASCII Transfer
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=181 top=153 right=171 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scanning
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=327 top=90 right=108 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Query
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=327 top=111 right=129 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Health Records
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=327 top=132 right=150 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Guidance
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=327 top=161 right=179 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-user
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp




-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=400 top=273 right=291 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Price


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=226 right=242 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: School Setup


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=247 right=263 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Student Details


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=226 right=242 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher Details


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=247 right=263 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course Details


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=226 right=242 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report Manager


-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=58 top=295 right=334 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Note


-- part 20 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=87 top=179 right=193 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Report Cards Note


-- part 21 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=51 right=64 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MAttendance


-- part 22 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=63 right=76 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MReport Cards


-- part 23 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=75 right=88 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MMarks


-- part 24 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=87 right=100 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MScheduling


-- part 25 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=99 right=112 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MLibrary


-- part 26 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=111 right=124 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MAdvance Booking


-- part 27 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=51 right=64 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Attendance


-- part 28 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=63 right=76 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Report Cards


-- part 29 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=75 right=88 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Marks


-- part 30 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=87 right=100 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scheduling


-- part 31 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=99 right=112 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Library


-- part 32 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=111 right=124 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Advance Booking


-- part 33 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=128 right=141 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ASCII Transfer


-- part 34 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=140 right=153 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Scanning


-- part 35 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=152 right=165 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Query


-- part 36 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=164 right=177 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Health Records


-- part 37 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=176 right=189 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Guidance


-- part 38 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=266 top=25 right=42 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle Pricing
----- HyperTalk script -----
on mouseUp
  lock screen
  go next
  unlock screen
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=299 right=334 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 5053 / 5053
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  global bundlePricing
  if bundlePricing then
    lock screen
    resetCard
    go next
    send "resetCard" to this card
    go to card "Demo Shell" of this background
    unlock screen with iris close
  else
    show card field "Bundle Pricing Note"
    repeat for 2
      set hilite of button "Note Flash" to true
      wait 5
      set hilite of button "Note Flash" to false
      wait 5
    end repeat
    wait until the mouseClick
    if the clickLoc is within the rect of button "Bundle Pricing" then
      send "mouseUp" to button "Bundle Pricing"
      exit mouseUp
    else
      repeat for 2
        set hilite of button "Bundle Pricing" to true
        wait 5
        set hilite of button "Bundle Pricing" to false
        wait 5
      end repeat
      put "True" into bundlePricing
    end if
  end if
end mouseUp



-- part 41 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=58 top=295 right=334 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Bundle Pricing Note


-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=93 top=295 right=333 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Note Flash


-- part contents for card part 27
----- text -----
950

-- part contents for card part 28
----- text -----
1950

-- part contents for card part 29
----- text -----
450

-- part contents for card part 30
----- text -----
1950

-- part contents for card part 31
----- text -----
950

-- part contents for card part 32
----- text -----
1200

-- part contents for card part 33
----- text -----
300

-- part contents for card part 34
----- text -----
300

-- part contents for card part 35
----- text -----
300

-- part contents for card part 36
----- text -----
300

-- part contents for card part 37
----- text -----
300

-- part contents for card part 21
----- text -----
1200

-- part contents for card part 22
----- text -----
2400

-- part contents for card part 23
----- text -----
450

-- part contents for card part 24
----- text -----
2300

-- part contents for card part 25
----- text -----
1000

-- part contents for card part 26
----- text -----
1500

-- part contents for card part 19
----- text -----
Note: Multiple school site license pricing is available.
      Contact Chancery Software for more information.
      Prices are in effect until June 1991.

-- part contents for card part 20
----- text -----
* The Report Cards module comes with Attendance, Marks and Query

-- part contents for card part 41
----- text -----
Note: Substantial price savings can be obtained by
      purchasing the above modules in bundles.  Please
      check bundle pricing for more information.